Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/mircme1a/form1.frm

Text File | 1999-07-29 | 5KB | 171 lines

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
   Caption         =   "mIRC Messenger"
   ClientHeight    =   5640
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   3165
   LinkTopic       =   "Form1"
   ScaleHeight     =   5640
   ScaleWidth      =   3165
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1
      Caption         =   "Frame1"
      Height          =   4845
      Left            =   45
      TabIndex        =   2
      Top             =   390
      Width           =   2895
      Begin MSComctlLib.TreeView tvUsers
         Height          =   2055
         Left            =   0
         TabIndex        =   3
         Top             =   0
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   3625
         _Version        =   393217
         Indentation     =   51
         Sorted          =   -1  'True
         Style           =   3
         HotTracking     =   -1  'True
         Appearance      =   1
      End
   End
   Begin MSComctlLib.TabStrip TabStrip1
      Height          =   5355
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   3135
      _ExtentX        =   5530
      _ExtentY        =   9446
      TabMinWidth     =   2
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
         NumTabs         =   2
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
            Caption         =   "Online"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
            Caption         =   "Setup"
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.StatusBar StatusBar1
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   5340
      Width           =   3165
      _ExtentX        =   5583
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            AutoSize        =   1
            Object.Width           =   5080
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuFile
      Caption         =   "&File"
   End
   Begin VB.Menu mnuEdit
      Caption         =   "&Edit"
      Begin VB.Menu mnuEditFolder
         Caption         =   "Add Fol&der"
      End
      Begin VB.Menu mnuEditFriend
         Caption         =   "Add &Friend"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim curAddFolder%, curAddFriend%

Private Sub Form_Load()
    myLoad ("Users")
End Sub

Private Sub Form_Resize()
    ResizeControls
End Sub

Private Sub myLoad(what)
    If what = "Users" Then
        Dim temp, temp1$, temp2$, counter1%, counter2%
        counter1 = 0
        Do
            counter1 = counter1 + 1
            temp1 = GetSetting(AppName, "Folders", counter1)
            If temp1 <> "" Then
                temp = tvUsers.Nodes.Add(, , counter1, temp1)
                counter2 = 0
                Do
                    counter2 = counter2 + 1
                    temp2 = GetSetting(AppName, temp1, counter2)
                    If temp2 <> "" Then
                        temp = tvUsers.Nodes.Add(counter1, tvwChild, counter2, temp2)
                    End If
                Loop While temp2 <> ""
            End If
        Loop While temp1 <> ""
    End If
End Sub

Private Sub mySave(what)

End Sub

Sub ResizeControls()
    With Frame1
        If Me.Height >= 1455 Then
            .Height = Me.Height - 1455
        End If
        If Me.Width >= 245 Then
            .Width = Me.Width - 245
        End If
    End With
    With TabStrip1
        If Me.Height >= 975 Then
            .Height = Me.Height - 975
        End If
        If Me.Width >= 120 Then
            .Width = Me.Width - 120
        End If
    End With
    With tvUsers
        If Me.Height >= 1455 Then
            .Height = Me.Height - 1455
        End If
        If Me.Width >= 245 Then
            .Width = Me.Width - 245
        End If
    End With
End Sub

Private Sub mnuEditFolder_Click()

End Sub

Private Sub mnuEditFriend_Click()

End Sub

Private Sub tvUsers_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
        PopupMenu mnuEdit
    End If
End Sub